PROGRAM enregistrementClient;

USES Types,Client;

Procedure enregistrementClient(ID_Client:Integer; VAR collectionClient:TTabClient; client:TClient);		//Définition du nom de notre procédure ainsi que ses paramètres en entrée-sortie

VAR

	i:Integer;

BEGIN																								//On appelle l'enregistrement dans la fonction qui crée ou modifie un client 
	i:=indiceClient(ID_Client,collectionClient);
	IF(i<0) THEN BEGIN
		collectionClient.nbelement:=collectionClient.nbelement+1;
		i:=collectionClient.nbelement;											// Le client n'existe pas encore on le creer
	END;
	collectionClient.tabclient[i]:=client;
END;





